<?php
/**
 * crcl/base
 *
 * Copyright 2013 CRCL - André Sabosch - info@crcl.de
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

/**
 * Converting entities
 */

namespace crcl\base\string;

interface IEntities
{
  public static function numeric($sInput);
}

class Entities implements IEntities
{
  public static function numeric($sInput, $bHtml = \FALSE)
  {
    // get rid of existing entities else double-escape
    $sInput = \html_entity_decode(\stripslashes($sInput), \ENT_QUOTES, 'UTF-8');
    $aInput = \preg_split('/(?<!^)(?!$)/u', $sInput); // return array of every multi-byte character
    $sOut = '';
    foreach ($aInput as $c)
    {
      if (\trim($c) !== '')
      {
        $o = \ord($c);
        if ($bHtml)
        {
          if ((\strlen($c) > 1) || // multi-byte [unicode]
              ($o < 32 || $o > 126) || // <- control / latin weirdos ->
              ($o > 33 && $o < 40) || // quotes + ambersand
              ($o > 59 && $o < 63)) // html
          {
            // convert to numeric entity
            $c = \mb_encode_numericentity($c, array(0x0, 0xffff, 0, 0xffff), 'UTF-8');
          }
        }
        else
        {
          if ((\strlen($c) > 1) || /* multi-byte [unicode] */
              ($o < 32 || $o > 126) || /* <- control / latin weirdos -> */
              ($o > 33 && $o < 40)
          ) /* quotes + ambersand */
          {
            // convert to numeric entity
            $c = \mb_encode_numericentity($c, array(0x0, 0xffff, 0, 0xffff), 'UTF-8');
          }
        }
      }
      $sOut .= $c;
    }
    return $sOut;
  }
}